home *** CD-ROM | disk | FTP | other *** search
/ Hráč 2004 May / Hrac_69_2004-05_dvd.iso / freeware / Tweak FX / tweakfx.exe / plugins / Folder Icon / Folder Icon_onload.txt < prev    next >
Text File  |  2003-09-19  |  667b  |  22 lines
  1. Sub OnLoad()
  2.  
  3. set txtIco = sh.ActiveForm.Controls.Add("VB.textbox", "txtIco")
  4. set txtIcoV = sh.ActiveForm.Controls.Add("VB.textbox", "txtIcoV")
  5. set fraPlugin = sh.ActiveForm.Controls.Item("fraPlugin")
  6.  
  7. txtIco.move fraPlugin.Left + 100, fraPlugin.Top + 200, 2000, 100
  8. txtIco.Visible = True
  9. txtIco.zorder 0
  10. txtIco.backcolor=&H8000000F&
  11. txtIco.locked=true
  12. txtIco.text = "Folder icon: "
  13.  
  14. txtIcoV.move fraPlugin.Left + 2400, fraPlugin.Top + 200, fraPlugin.width-2500, 100
  15. txtIcoV.Visible = True
  16. txtIcoV.zorder 0
  17.  
  18.  
  19. sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Bitmap", ico
  20.  
  21. txtIcoV.text=ico
  22. End Sub